unit LS;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Grids,
  Vcl.DBGrids, Data.db, Vcl.Buttons;

type
  TFmLS = class(TForm)
    edSearch: TEdit;
    btnSearchLS: TButton;
    DBGrid1: TDBGrid;
    btnOk: TBitBtn;
    procedure btnSearchLSClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmLS: TFmLS;

implementation

{$R *.dfm}

uses dm;

procedure TFmLS.btnOkClick(Sender: TObject);
begin
FmLS.Close;
end;

procedure TFmLS.btnSearchLSClick(Sender: TObject);
begin
dmmain.dsetRLS.Close;
dmmain.dsetRLS.paramByName('RLS_NAME').AsString:=edSearch.Text;
dmmain.dsetRLS.Open;
end;

end.
